Otomatik Sayfa Silme

Otomatik Sayfa Silme, Çalışma kitaplarında yer alan yüzlerce Çalışma Sayfasının silinmesini sağlayacak hazır makro kodları içermektedir.

Makrolar ile Otomatik Sayfa Silme

Kodu çalıştırdığınızda, makrolar ile işlemler yapıldığında işlemin geri alınması mümkün olmadığı için, olası hatalı çalıştırmayı önlemek adına bir soru uyarısı ekranı çıkacaktır.

Bu ekranda Evet ve Hayır şeklinde iki seçenek bulunmaktadır.

Evet seçeneğine tıklarsanız, kodlarımızda belirttiğimiz "Anasayfa" isimli sayfa dışındaki tüm sayfalar silinecektir.

Hayır seçeneğine tıklarsanız, kodlar çalışmayacak ve herhangi bir silme işlemi gerçekleşmeyecektir. Bunun sonucunda da karşınıza bir bilgi penceresi çıkacaktır.

Hazır Kodlar​

Sub SayfaSil()
Dim sayfa As Worksheet
If MsgBox(Chr(34) & "Anasayfa" & Chr(34) & " isimli sayfanız haricindeki tüm sayfalarınız silinecektir, bunu yapmak istediğinize emin misiniz?", vbYesNo + vbQuestion, "Sayfaları Silme") = vbYes Then

    Application.ScreenUpdating = False: Application.DisplayAlerts = False
 
    For Each sayfa In Worksheets
  If sayfa.Name <> "Anasayfa" Then
sayfa.Delete
  End If
    Next
    Application.ScreenUpdating = True: Application.DisplayAlerts = True
Else

    MsgBox "Silme işleminden vazgeçtiniz!", vbCritical, "Sayfa Silme İptal Edildi!"

End If
End Sub

Faydalanmanız temennisiyle.